﻿Imports System.Windows.Forms

Public Class ArticulosTableAdapter
    Inherits DSEATableAdapters.ArticulosTableAdapter

    Public Sub Grabar(ByVal DT As DSEA.ArticulosDataTable)
        Try
            Me.Update(DT)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    'Public Sub Calcula_Total_Venta(ByVal Dr_Articulos As DSEA.Articulos_CompuestosRow, ByVal DT_Componentes As DSEA.Articulos_CompuestosDataTable)
    '    Try
    '        Dim Total As Double = 0

    '        For Each dr As DSEA.Articulos_CompuestosRow In DT_Componentes
    '            Total = Total + dr.Venta
    '        Next

    '        Dr_Articulos.Venta = Total
    '    Catch ex As Exception

    '    End Try
    'End Sub
End Class
